CREATE PROCEDURE - instrukcja, PROCEDURE - przyk│ad klauzuli

W tym przyk│adzie kwerendzie zostaje nadana nazwa ListaKategorii.

W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.

Sub ProcedureX()

    Dim dbs As Database, rst As Recordset

    Dim qdf As QueryDef, strSql As String

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    strSql = "PROCEDURE ListaKategorii; " _

        & "SELECT DISTINCTROW NazwaKategorii, " _

        & "NrKategorii FROM Kategorie " _

        & "ORDER BY NazwaKategorii;"

    ' Utw≤rz nazwany obiekt typu QueryDef

' bazuj╣cy na instrukcji SQL.

Set qdf = dbs.CreateQueryDef("NowaKwerenda ", strSql)

' Utw≤rz tymczasowy obiekt Recordset

' typu utrwalonego.

    Set rst = qdf.OpenRecordset(dbOpenSnapshot)

    ' Zape│nij obiekt Recordset.

    rst.MoveLast

    ' Wywo│aj procedurΩ WyliczPola w celu

    ' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt

    ' Recordset i wymagan╣ szeroko£µ pola.

' Poniewa┐ jest to przyk│ad,

' Usu± obiekt typu QueryDef.

    dbs.QueryDefs.Delete "NowaKwerenda"

    dbs.Close

End Sub